home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / UTILITY.EXE / CALL.BAS < prev    next >
BASIC Source File  |  1990-06-16  |  1KB  |  33 lines
  1. 00010 ' *** MUST HAVE THESE DIM STATEMENTS AT BEGINNING ***
  2. 00020 :
  3. 00030 DIM offset%,segment%
  4. 00040 DIM 3 Discriptor1$,Discriptor2$
  5. 00050 :
  6. 00060 "MAKE CALL" ' *** SUBROUTINE TO MAKE CALL ***
  7. 00070 :
  8. 00080 ' *** FIX FOR STRING VARIABLES TO BE PASSED ***
  9. 00090 :
  10. 00100 Ptr% = VARPTR(Discriptor1$)
  11. 00110 POKE Ptr%, LEN(A1$) : POKE WORD Ptr%+1,VARPTR(A1$)
  12. 00120 Ptr% = VARPTR(Discriptor2$)
  13. 00130 POKE Ptr%,LEN(A2$) : POKE WORD Ptr%+1,VARPTR(A2$)
  14. 00140 :
  15. 00150 ' *** MAKE segment%:offset% EQUAL ADDRESS OF ROUTINE ***
  16. 00160 :
  17. 00170 segment% = MEM D : offset% = &1000
  18. 00180 :
  19. 00190 ' *** MAKE CALL TO ROUTINE ***
  20. 00200 :
  21. 00210 MACHLG &B8,Var1,&50
  22. 00220 MACHLG &B8,Var2,&50
  23. 00230 MACHLG &B8,Discriptor1$,&50
  24. 00240 MACHLG &B8,Discriptor2$,&50
  25. 00250 MACHLG &BB,offset%,&FF,&1F
  26. 00260 RETURN
  27. 00270 :
  28. 00280 ' *** EXAMPLES TO MAKE CALL ***
  29. 00290 GOSUB "MAKE CALL"
  30. 00300 Var1 = 3 : Var2 = 69 : A1$ = "HELP" : A2$ = "ME"
  31. 00310 GOSUB "MAKE CALL"
  32. 65534 *** TAKE THIS LINE OUT WHEN READY TO TRY! ***
  33.